home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / SANCTION.SAB < prev    next >
Text File  |  1991-10-10  |  2KB  |  44 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "SANCTION.SAB" at 2,36
  5. write "GR Sanction Accounting" at 5,29
  6. set v hg to ""
  7. fillin hg using "(E)dit An Account, (A)dd A New Record Or <ESC>  " at 8,16
  8.  if hg = "" then ; goto fin ; endif
  9.  if hg = "e" then ; goto edrec ; endif
  10.  if hg = "a" then ; goto adrec ; endif
  11.    goto start
  12. label adrec
  13. write "                                                            " at 8,14
  14. set v code to ""
  15. fillin code using "Enter Entire ADD.CODE (or <ESC>)       " at 8,12
  16. if code = "" then ; goto fin ; endif
  17. append cur.mast to sanction where add.code = .code
  18. set v nam to ""
  19. fillin nam using "Enter ENTIRE Name Of Sanctioned Tenant " at 10,12
  20. cha tenant1 to .nam in sanction whe count = last
  21. set v whn to ""
  22. set v whn date
  23. set v hm to sanctime in cur.mast where add.code = .code
  24. set v thm to (.hm + 1)
  25. change sanctime to .thm in cur.mast where add.code = .code
  26. fillin whn using "Enter Effective Date Of Sanction       " at 12,12
  27. change eff.date to .whn in sanction where eff.date fails
  28. change sancdate to .whn in cur.mast where add.code = .code
  29. change rec.date to .#date in sanction where rec.date fails
  30. change wattn to "7" in cur.mast where add.code = .code
  31. edit using sanction where add.code = .code and rec.date = .#date
  32.   goto start
  33. label edrec
  34. write "                                                              " at 8,14
  35. set v code to ""
  36. fillin code using "Enter All Or A Portion Of ADD.CODE (or <ESC>  " at 8,12
  37. if code = "" then ; goto start ; endif
  38. edit using sanction where add.code contains .code
  39. goto start
  40. label fin
  41.   cls
  42.   return
  43.  
  44.